home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
misc
/
bguimenu.lha
/
BGUIMenu-Install
< prev
next >
Wrap
Text File
|
1995-09-03
|
5KB
|
189 lines
;
; Installer Script for BGUIMenu V1.x
;
;
; Procedures
;
(procedure InstallLib
(working ("Copying %s" libname))
(copylib
(prompt ("Do you want to install the \"%s\"?" libname))
(help @copylib-help)
(source (tackon "libs/" libname))
(dest "libs:")
(confirm)
)
)
(procedure AskDocDir
(set docdir
(askdir
(prompt "Where do you want to install the documentation? ")
(help @askdir-help)
(default "Help:English")
)
)
)
(procedure Install
(message "You are now about to install the BGUIMenu program. "
"You will be first asked for all the different files "
"you can install and then this script will begin to "
"install the files."
)
(set maindest
(askdir
(prompt "Where do you want to install BGUIMenu program? "
"No drawer will be created in this directory. ")
(help @askdir-help)
(default "Sys:Utilities")
)
)
(set @default-dest maindest)
(set maindrawer ("%s drawer? " maindest))
(set fileflag
(askoptions
(prompt "Which files do you want to install in the "
maindrawer)
(help @askoptions-help)
(choices
"BGUIMenu"
"BGUIMenu.guide"
)
)
)
(set examples
(askbool
(prompt "Do you want to install the extra examples? ")
(help "The example files are made to show you how to "
"work with BGUIMenu. If you select yes, you can "
"select between all the example script delivered "
"with this Version of BGUIMenu. The files will be "
"copied to your \"s:\" directory.")
)
)
(set exampleflag 0)
(if examples
(
(set exampleflag
(askoptions
(prompt "Which Example Scripts do you want to install in "
"your \"s:\" drawer? ")
(help @askoptions-help)
(choices
"Example1"
"Example2"
"Unpack"
)
)
)
)
)
(set lib
(askbool
(prompt "Do you wish to install the bgui.library delivered with "
"this version of BGUIMenu ? Press Help for more info.")
(help "You will need this library if you want to use BGUIMenu "
"at all. I included the newest Version I got. "
"If you already have installed bgui.library you might "
"want to skip this option.")
)
)
; Begin to copy the files
(if fileflag
(
(if (in fileflag 0)
(
(copyfiles
(source (tackon sdir "BGUIMenu"))
(dest maindest)
(infos)
)
)
)
(if (in fileflag 1)
(
(AskDocDir)
(copyfiles
(source (tackon sdir "BGUIMenu.guide"))
(dest docdir)
(infos)
)
)
)
)
)
(complete 50)
(if examples
(
(working "Copying Example files")
(if (in examples 0)
(
(copyfiles
(source (tackon sdir "Examples/"))
(dest "s:")
(pattern "Example1#?")
)
)
)
(if (in examples 1)
(
(copyfiles
(source (tackon sdir "Examples/"))
(dest "S:")
(pattern "Example2#?")
)
(copyfiles
(source (tackon sdir "Examples/"))
(dest "S:")
(pattern "Script#?")
)
)
)
(if (in examples 2)
(
(copyfiles
(source (tackon sdir "Examples/"))
(dest "S:")
(pattern "Unpack#?")
)
)
)
)
)
(complete 75)
(if lib
(
(set libname "bgui.library")
(InstallLib)
)
)
(complete 100)
)
; Main "program" :-)
(complete 0)
(set sdir (pathonly @icon))
(if (< (/ (getversion) 65536) 37)
(abort "You must have Kickstart 2.0 or greater to use this installation"
" utility and to run \"BGUIMenu\".")
)
(welcome)
(Install)